function Policy=Policy_Solver(PP,SS,T,Profit,TAU,ir_dom,ir_ext,w_N,w_H,PortfolioInfo,UCoefp,State)

%% Sequential Optimizer
[Val,Vbar]  =   Fun_Vbar(PP,SS,T,Profit,TAU,ir_dom,ir_ext,w_N,w_H,PortfolioInfo,UCoefp,State,0);
%% Collect the Policy of Interest
Policy      =   Vbar.Policy;